home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Hyper
/
Q-R
/
Q&A.cpt
/
Cosmology
/
background_2623.txt
< prev
next >
Wrap
Text File
|
1987-12-01
|
9KB
|
389 lines
-- background: 2623 from stack: in
-- bmap block id: 3721
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openBackground
push recent card
end openBackground
-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=41 top=299 right=328 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
visual effect iris open
go Home
end mouseUp
-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=77 top=50 right=115 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: theQuestion
-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=77 top=121 right=154 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: answer1
----- HyperTalk script -----
on mouseUp
global response
put 1 into response
process
end mouseUp
-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=77 top=155 right=187 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: answer2
----- HyperTalk script -----
on mouseUp
global response
put 2 into response
process
end mouseUp
-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=77 top=188 right=220 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: answer3
----- HyperTalk script -----
on mouseUp
global response
put 3 into response
process
end mouseUp
-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=77 top=221 right=254 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: answer4
----- HyperTalk script -----
on mouseUp
global response
put 4 into response
process
end mouseUp
-- part 35 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=77 top=255 right=288 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: answer5
----- HyperTalk script -----
on mouseUp
global response
put 5 into response
process
end mouseUp
-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=127 top=294 right=310 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: correctanswer
-- part 26 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=406 top=293 right=327 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
if background field "why" is empty then
put "Sorry, no explanation for this question as been entered." into background field "why"
end if
if visible of background field "why" = false then
if background field "why" is empty then
put "Sorry, no explination for this question as been entered."
into background field "why"
end if
show background field "why"
else
hide background field "why"
end if
end mouseUp
-- part 28 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=214 top=15 right=43 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: reviewmask
-- part 27 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=77 top=121 right=289 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: why
----- HyperTalk script -----
on mouseUp
hide background field "why"
end mouseUp
-- part 30 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=302 top=307 right=324 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: percentcorrect
-- part 31 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=218 top=309 right=323 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: cardnumber
-- part 32 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=258 top=309 right=324 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: numberofcards
-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=479 top=12 right=32 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
if visible of background field "answermask" = true then
hide background field "answermask" -- reveals the answers
set lockText of background field "answer1" to false -- allow editing
set lockText of background field "answer2" to false
set lockText of background field "answer3" to false
set lockText of background field "answer4" to false
set lockText of background field "answer5" to false
set lockText of background field "theQuestion" to false
set lockText of background field "why" to false
set visible of background button "help" to true
show menubar
else
show background field "answermask" -- hides the answers
set lockText of background field "answer1" to true -- allow editing
set lockText of background field "answer2" to true
set lockText of background field "answer3" to true
set lockText of background field "answer4" to true
set lockText of background field "answer5" to true
set lockText of background field "theQuestion" to true
set lockText of background field "why" to true
set visible of background button "help" to false
hide menubar
end if
end mouseUp
-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=447 top=291 right=337 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
go to previous card
end mouseUp
-- part 40 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=91 top=308 right=322 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: got it right
-- part 29 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=77 top=291 right=324 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: answermask
-- part 41 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=442 top=290 right=326 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gobackmask
-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=41 top=266 right=300 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 9761 / 9761
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compass
----- HyperTalk script -----
on mouseUp
go to card 2 of Q&A
end mouseUp